home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / mailmen.arc / BIRTHDAY.PRG next >
Encoding:
Text File  |  1991-01-10  |  768 b   |  35 lines
  1. * BIRTHDAY.PRG PRINTS CHRISTMAS LABELS FOR MAILING LIST PROGRAM (C) COPYRIGHT
  2. * DECEMBER 3, 1983 BY PHILIP K. PERLMAN
  3. SET TALK OFF
  4. ERASE
  5. @ 10,5 SAY 'Mount Labels one across by 15/16" high in Printer'
  6. @ 12,5 SAY 'Press any key when ready'
  7. ?
  8. ?
  9. ?
  10. ?
  11. ?
  12. ?
  13. ?
  14. ?
  15. ?
  16. wait
  17.      USE MAIL
  18.      GO TOP
  19.      SET PRINT ON
  20.      ? CHR(15)
  21.      DO WHILE .NOT. EOF
  22.           IF BIRTHDAY <> ' '
  23.                ? TRIM(FIRST), LAST
  24.                ? ADDR1
  25.                ? ADDR2
  26.                ? TRIM(CITY)-"," , STATE, ZIP
  27.                ? BIRTHDAY
  28.                ? 
  29.           ENDIF
  30.           SKIP
  31.      ENDDO
  32.      ? CHR(18)
  33.      SET PRINT OFF
  34.      RETURN
  35.